10 POKE56,56:CLR:POKE53281,0:POKE53280,0
15 POKE788,52
20 PRINT"[147]":GOSUB1990
30 DV=PEEK(186):IFDV<8THENDV=8
40 SYS57812"MINDFONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
50 SYS57812"INP/CM CE00",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
60 POKE53281,0:POKE53280,0:DIMW$(300),W(13)
70 SYS52736,"CRYPTDATA 03",DV
80 H=PEEK(252)*256+PEEK(251)
90 GOTO390
100 POKE214,Y:PRINT""
110 PRINTTAB(X)"[176]"LEFT$(LT$,XX)"[174]"
120 FORI=1TOYY:PRINTTAB(X)"[165]"LEFT$(SP$,XX)"[167][149]@":NEXT
130 PRINTTAB(X)"[173]"LEFT$(LB$,XX)"[189][149]@"
140 PRINTTAB(X+1)LEFT$(SH$,XX+2)
150 POKE214,Y+1:PRINT:PRINTTAB(X+2);
160 RETURN
170 POKE214,23:PRINT
180 PRINT"   [193]NY KEY [155]- MORE    [210][197][212][213][210][206] [155]- MENU[145]":POKE198,0
190 GETA$:IFA$=""THEN190
200 FG=0:IFA$=CHR$(13)THENFG=1
210 RETURN
220 SYSCM,1024,16384+S*2000,1000
230 SYSCM,55296,17384+S*2000,1000
240 RETURN
250 SYSCM,16384+S*2000,1024,1000
260 SYSCM,17384+S*2000,55296,1000
270 RETURN
280 T=(T+1)AND63
290 SYSCM,15872+T*8,14336,8
300 RETURN
310 GETA$:IFA$=""THEN310
320 IFA$>="A"ANDA$<="Z"THENA$=CHR$(ASC(A$)+128)
330 IFA$<"[193]"ORA$>"[218]"THEN310
340 RETURN
350 POKE214,Y+1:PRINT:PRINTTAB(3)"[154] [209]UIT THIS GAME TO THE MENU? (Y[154]/N[154])"
360 GETA$:IFA$=""THEN360
370 IFA$="Y"THENRETURN
380 FL=1:RETURN
390 PRINT"[147]":CM=53176:PG$="LBRGNMT"
400 FORI=1TO5:READM$(I):NEXT
410 DATA"    [208]LAY [195][210][217][208][212][207][205][201][206][196]
420 [131]"  (null)ULES OF LEN(null)(null)(null)(null)(null)(null)RIGHT$(null)STR$
430 DATA" [200]OW TO [211]OLVE [195]RYPTICS
440 [131]"  LEN(null)(null)(null)(null)(null)(null)RIGHT$(null)STR$ (null)OLUTION
450 DATA"   [210]ETURN TO [204][207][193][196][211][212][193][210]
460 LT$[178]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
470 SP$[178]"                                      "
480 LB$[178]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
490 SH$[178]"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
500 MD$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
510 M2$(0)[178]"(null)VALASC(null) OF WHICH LETTER"
520 M2$(1)[178]"(null)RIGHT$CHR$LEFT$(null) OF WHICH LETTER"
530 M2$(2)[178]"PEEKVAL(null)(null)VALVAL(null) WHICH LETTERS"
540 M2$(3)[178]"(null)HAT'S THE WORD"
550 [153]"LOAD":[151]53272,31
560 T[178]12:[141]280
570 [129]I[178]100[164]140:[139]W$(I)[178]"*"[167]U[178]I[171]3:I[178]140
580 [130]
590 [153]"LOADSYS";
600 [129]I[178]0[164]23:[153]SH$;:[130]:[153][200](SH$,39)"CMDCMDSAVE@@"
610 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:S[178]0:[141]220
620 X[178]8:XX[178]23:Y[178]3:YY[178]14:[141]100
630 [153]"OPEN LEN (null) (null) (null) (null) (null) (null) RIGHT$ (null) STR$CONT"
640 [129]I[178]1[164]5:[153][163]9)M$(I):[153]:[130]:S[178]2:[141]220
650 M[178]1:W[178]0
660 [151]214,6[170]M[172]2:[153]:[153][163]9)""M$(M)"ON":[151]198,0
670 [161]A$:[139]A$[179][177]""[175]A$[179][177]"ON"[175]A$[179][177][199](13)[175]A$[179][177]"T"[167]670
680 [139]A$[178][199](13)[167]S[178]1:[141]220:[137]740
690 [139]A$[178]"T"[167][141]280
700 [153][163]9)"CONT"M$(M)
710 [139]A$[178]"ON"[167]M[178]M[171]1:[139]M[179]1[167]M[178]5
720 [139]A$[178]""[167]M[178]M[170]1:[139]M[177]5[167]M[178]1
730 [137]660
740 [145]M[141]760,1600,1410,1490,1760
750 [137]660
760 S[178]0:[141]250:CL[178]2:SC[178]100
770 X[178]5:XX[178]28:Y[178]0:YY[178]11:[141]100
780 [153][163]X[170]1)"LISTATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
790 X[178]2:XX[178]34:Y[178]15:YY[178]5:[141]100
800 [153]"CMD(null)CONTVALASC(null) PEEKCONTVAL(null)(null)VALVAL(null) (null)CONTRIGHT$CHR$LEFT$(null) CHR$CONT(null)VAL(null)(null) (null)CONTVAL(null)(null) (null)CONTVAL(null)(null)
810 PRINTTAB(9)"[215][207][210][196]:"TAB(21)"[211][195][207][210][197]:"
820 PRINTTAB(X)"[171]"LEFT$(MD$,XX)"[179]"
830 FORI=1TO10:W(I)=0:NEXT
840 W=W+1:IFW(W)ANDW<11THEN840
850 IFW>10THENW=0:GOTO840
860 POKE214,Y+2:PRINT:PRINTTAB(14)"   [157][157][157]"W;TAB(27)"    [157][157][157][157]"SC
870 GG=0:CL=2:WD$=W$(U+W*4):LW=LEN(WD$)
880 POKE214,19:PRINT"[155]":PRINTTAB(X+1)LEFT$(SP$,XX)"[145]":PRINTTAB(X+1)W$(U+1+4*W)
890 PRINTTAB(X+1)LEFT$(SP$,XX)"[145]":PRINTTAB(X+1)W$(U+2+4*W):G=1
900 POKE214,Y+1:PRINT
902 IFGGTHENPRINTTAB(3)"[151][204][197][198][212] [194][197][212][215][197][197][206] [210][201][199][200][212] [199][154][213][197][211][211] [206][154][197][216][212] [205][154][197][206][213]":GOTO910
905 PRINTTAB(3)"[204][154][197][198][212] [194][154][197][212][215][197][197][206] [210][154][201][199][200][212] [199][154][213][197][211][211] [206][154][197][216][212] [205][154][197][206][213]
910 [161]A$:[129]I[178]1[164]7:[139]A$[178][202](PG$,I,1)[167]I[178]7:[130]:[137]917
915 [130]:[137]910
917 [139]A$[178]"N"[167]1320
920 [139]A$[178]"T"[167][141]280:[137]910
930 [139]A$[179][177]"M"[167]960
940 [141]350:[139]FL[167]FL[178]0:[137]900
950 S[178]1:[141]250:W[178]0:[142]
960 [139]A$[178]"G"[167]M2[178]3:[137]1010
970 [139]GG[167]900
980 [139]A$[178]"L"[167]M2[178]0:SC[178]SC[171]1
990 [139]A$[178]"R"[167]M2[178]1:SC[178]SC[171]1
1000 [139]A$[178]"B"[167]M2[178]2:SC[178]SC[171]2
1010 [151]214,Y[170]1:[153]:[153][163]X[170]1)[200](SP$,XX)"ON"
1020 [153][163]X[170]6[170]4[172](M2[178]2))"CONT"M2$(M2)"? ";
1030 [139]M2[178]3[167]1250
1040 [141]310:A1$[178]A$:A1[178][198](A1$)[171]192
1050 [139]M2[178]0[175]A1$[178]"ATN"[167]1040
1060 [139]M2[178]1[175]A1$[178]"(null)"[167]1040
1070 [153]""A1$;
1080 [139]M2[179]2[167][153]:[137]1130
1090 [153]"CONT AND ";
1100 [141]310:A2$[178]A$:A2[178][198](A2$)[171]192
1110 [139]A2[171]A1[179]2[167]1100
1120 [153]""A2$;
1130 [139]M2[178]0[167]A2[178]A1:A1[178]0:[137]1150
1140 [139]M2[178]1[167]A2[178]26:[137]1150
1150 [151]214,2[170]G:[153]
1160 [153][163]7[170]A1);
1170 CL[178]CL[170]1
1180 [151]646,CL:[153]""[200](SP$,A2[171]A1[170](M2[178]2)[170](M2[178]0))
1190 CO[178]0:[129]I[178]1[164]LW:L[178][198]([202](WD$,I,1))[171]192
1200 [139]L[177]A1[175]L[179]A2[167]CO[178]CO[170]1
1210 [130]
1220 [151]214,2[170]G:[153]:[153][163]6[170]A1[170](A2[171]A1)[173]2[171](M2[178]1))""[199](CO[170]48)
1230 G[178]G[170]1:[139]G[177]9[167]GG[178]1
1240 [137]900
1250 [141]1880:[153]"ONON":ZZ[178]0
1260 [151]214,16:[153]:[153][163]X[170]1)[200](SP$,XX)"ON"
1270 [153][163]14);:[151]646,CA
1280 [139]Q9$[178]WD$[167][153]"(null) RIGHT$ CHR$ LEFT$ (null) (null) !ON":W(W)[178]1:[137]1300
1290 [153]"(null) (null) (null) (null) CHR$ (null) !ON"
1300 ZZ[178]ZZ[170]1:[139]ZZ[179]20[167]CA[178]1[171]CA:[137]1270
1310 [139]Q9$[179][177]WD$[167]SC[178]SC[171]3
1320 [129]I[178]1[164]10
1330 [139]W(I)[167]1350
1340 I[178]10:[130]:[151]214,3:[153]:[129]J[178]1[164]9:[153][163]6)[200](SP$,28):[130]:[137]840
1350 [130]
1360 [151]214,16:[153]
1370 [153]"OPEN       (null)OUR SCORE WAS"SC"        "
1380 [153]"OPEN      ATNNY KEY FOR THE MENU        "
1390 [161]A$:[139]A$[178]""[167]1390
1400 S[178]2:[141]250:W[178]0:[142]
1410 [153]"LOADOPEN":[129]I[178]1[164]99
1420 [139]W$(I)[179][177]"\"[167]1450
1430 [141]170:[139]FG[167]I[178]99:[130]:S[178]2:[141]250:[142]
1440 [153]"LOADOPEN":I[178]I[170]1
1450 [153]" "W$(I)
1460 [130]
1470 [141]170:[139]FG[167]I[178]99:S[178]2:[141]250:[142]
1480 [137]1410
1490 I[178]0
1500 [153]"LOAD"
1510 [153]""W$(U[170]4[170]I[172]4)
1520 [153]"CONT "W$(U[170]5[170]I[172]4)
1530 [153]" "W$(U[170]6[170]I[172]4)
1540 [153]"OPEN  "W$(U[170]7[170]I[172]4)
1550 [153]
1560 I[178]I[170]1:[139]I[173]4[179][177][181](I[173]4)[167]1510
1570 [141]170:[139]FG[167]S[178]2:[141]250:[142]
1580 [139]I[179]10[167]1500
1590 I[178]0:[137]1500
1600 X[178]3:XX[178]32:Y[178]2:YY[178]16:[141]100
1610 [153][163]5)"OPEN  (null)OU MAY GET CLUES TO THE
1620 PRINTTAB(5)"WORD DEFINED BY THE CRYPTIC
1630 [153][163]5)"CLUE BY PRESSING (null)OPEN, (null)OPEN OR PEEKOPEN.
1640 PRINTTAB(5)"[212]HE NUMBER OF LETTERS IN THE
1650 [153][163]5)"WORD FOUND IN THE RANGE YOU
1660 PRINTTAB(5)"SELECTED IS SHOWN.  [206]OTE THAT
1670 [153][163]5)"THE RANGE IS (null)(null)(null) INCLUSIVE.
1680 PRINTTAB(5)"  [217]OU LOSE [158]1[159] POINT FOR [204][159] OR [210][159],
1690 [153][163]5)"SYS2OPEN POINTS FOR PEEKOPEN, AND SYS3OPEN POINTS
1700 PRINTTAB(5)"FOR GUESSING WRONG.
1710 [153][163]5)"  (null)EEP GOING THROUGH THE WORDS
1720 PRINTTAB(5)"TILL YOU GET THEM ALL RIGHT.
1730 [153][163]5)"      ATNNY KEY FOR MENU"
1740 [161]A$:[139]A$[178]""[167]1740
1750 [141]250:[142]
1760 X[178]4:XX[178]31:Y[178]17:YY[178]3:[141]100
1770 [153]"CONT (null)(null)RIGHT$(null)?  ATNRE YOU SURE?  (YCONT/NCONT)"
1780 [161]A$:[139]A$[178]""[167]1780
1790 [139]A$[179][177]"Y"[167][141]250:[142]
1800 [153]"LOAD":[151]53272,21:[151]788,49
1810 [137]40000
1880 Q9$[178]"":U9[178]53280:[151]198,0
1890 [161]A$
1900 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]1890
1910 [139]A$[178][199](13)[167][153]" ":[142]
1920 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]1980
1930 [139][195](Q9$)[177][178]10[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]1890
1940 [139]A$[177][178]"A"[175]A$[179][178]"Z"[167]A$[178][199]([198](A$)[170]128)
1950 [139]A$[179]"ATN"[176]A$[177]"(null)"[167]1890
1960 Q9$[178]Q9$[170]A$
1970 [153]""A$;:[137]1890
1980 [153]" CMDCMD CMD";:[137]1890
1990 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
2000 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
2010 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
2020 Z$(0)[178]"LEN (null) (null) (null) (null) (null) (null) RIGHT$ (null) STR$":Z$(1)[178]"BY ASCENDER (null)UCKER
2030 Z$(2)="[214]1.1 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
2040 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
2050 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
2060 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
2070 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
2080 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
2090 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]
10000 [159]15,8,15,"S0:CRYPTOMIND 03":[160]15:[148]"CRYPTOMIND 03",8:[128]
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40030
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]